home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 012 / quickeys.arc / QUICKEYS.BAS next >
BASIC Source File  |  1986-02-15  |  2KB  |  49 lines
  1. 10 GOTO 80
  2. 20 SAVE"QUICKEYS.BAS",A
  3. 30 'THIS PROGRAM WAS IN THE MARCH 11, 1986 ISSUE OF PC MAGAZINE.
  4. 40 'IT SHOULD BE LOADED INTO THE AUTOEXEC.BAT FILE.  IT WILL SPEED
  5. 50 'UP YOUR CUSOR MOVEMENT AND KEY REPEAT FUNCTION FASTER THAN YOU
  6. 60 'WILL BELIEVE.  FOR ADDITIONAL INFORMATION CHECK PAGE 255, OF THE
  7. 70 'ISSUE LISTED ABOVE.  ALSO SEE TEXT FILE IN ARCHIVE...
  8. 80 'KEYED IN BY CARL S. HAYES, ALEXANDRIA, VA  (FEB 15, 1986)
  9. 90 CLS:PRINT "CHECKING DATA; please wait..."
  10. 100 FOR B=1 TO 17
  11. 110 FOR C=1 TO 17
  12. 120 READ A$:IF C<17 THEN 140
  13. 130 Z#=Z#+VAL(A$)
  14. 140 NEXT:NEXT
  15. 150 IF Z#=17361 THEN RESTORE:GOTO 180
  16. 160 PRINT "ERROR:  CHECK THE LAST NUMBER IN"
  17. 170 PRINT "EACH DATA STATEMENT--THEN REDO":END
  18. 180 FOR B=1 TO 17
  19. 190 FOR C=1 TO 16
  20. 200 READ A$:TTL=TTL+VAL("&H"+A$)
  21. 210 NEXT
  22. 220 READ S:IF S=TTL THEN 250
  23. 230 PRINT "DATA ERROR IN LINE";B*10+330
  24. 240 PRINT "CHECK FIGURES AND REDO":END
  25. 250 TTL=0:NEXT:RESTORE
  26. 260 OPEN "QUICKEYS.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  27. 270 FOR B=1 TO 17
  28. 280 FOR C=1 TO 16
  29. 290 READ A$:LSET D$=CHR$(VAL("&H"+A$))
  30. 300 PUT #1:NEXT:READ DUMMY$:NEXT:CLOSE
  31. 310 PRINT "QUICKEYS.COM CREATED"
  32. 320 DATA E9,BB,00,00,00,00,00,00,00,00,00,00,00,00,00,07,427
  33. 330 DATA 01,1E,53,BB,40,00,8E,DB,2E,C6,06,0D,01,00,8B,1E,1159
  34. 340 DATA 1C,00,9C,2E,FF,1E,07,01,3B,1E,1C,00,75,15,2E,C7,1023
  35. 350 DATA 06,0B,01,FF,FF,F6,06,17,00,0A,74,2A,89,1E,1A,00,1164
  36. 360 DATA EB,24,90,8B,1F,2E,3B,1E,0B,01,2E,89,1E,0B,01,2E,1003
  37. 370 DATA 8A,1E,0F,01,75,05,2E,8A,1E,10,01,2E,88,1E,0E,01,764
  38. 380 DATA 2E,C6,06,0D,01,01,5B,1F,CF,2E,80,3E,0D,01,01,75,962
  39. 390 DATA 48,2E,FE,0E,0E,01,75,41,1E,57,53,50,BB,40,00,8E,1256
  40. 400 DATA DB,8B,1E,1C,00,8B,FB,83,C3,02,83,FB,3E,75,03,BB,1885
  41. 410 DATA 1E,00,3B,1E,1A,00,75,09,2E,C6,06,0D,01,00,EB,15,791
  42. 420 DATA 90,FA,2E,A1,0B,01,89,05,89,1E,1C,00,FB,2E,A0,10,1423
  43. 430 DATA 01,2E,A2,0E,01,58,5B,5F,1F,2E,FF,2E,03,01,33,C0,1123
  44. 440 DATA 8E,C0,26,A1,20,00,26,8B,1E,22,00,26,8B,0E,24,00,1033
  45. 450 DATA 26,8B,16,26,00,A3,03,01,89,1E,05,01,89,0E,07,01,736
  46. 460 DATA 89,16,09,01,FA,8D,06,69,01,26,A3,20,00,26,8C,0E,1097
  47. 470 DATA 22,00,8D,06,11,01,26,A3,24,00,26,8C,0E,26,00,FB,917
  48. 480 DATA 8D,16,BE,01,CD,27,00,00,00,00,00,00,00,00,00,00,598
  49.